home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 June / 1994-06b.d64 / screen wipes (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  691b  |  17 lines
  1. 10 rem  five screen wipes
  2. 15 rem  by brian kissinger                 :
  3. 20 print"[147]";:forj=0to29:print"this is a very cluttered screen  ";:next
  4. 25 print"enter 1-6[146]":wait198,7:geta$:onasc(a$)-48goto40,50,60,70,80,90:goto25
  5. 35 rem 1 - wipes screen upward
  6. 40 forj=24to0step-1:poke781,j:sys59903:next:printchr$(147):end
  7. 45 rem 2 - wipes screen downward
  8. 50 forj=0to24:poke781,j:sys59903:next:printchr$(147):end
  9. 55 rem 3 - wipes top/bottom to center
  10. 60 forj=0to12:poke781,j:sys59903:poke781,24-j:sys59903:next:printchr$(147):end
  11. 65 rem 4 - wipes center to top/bottom
  12. 70 forj=12to0step-1:poke781,j:sys59903:poke781,24-j:sys59903:next:print"[147]":end
  13. 75 rem 5 - wipes like closing blinds
  14. 80 forj=0to4:forx=0to4:poke781,x*5+j:sys59903:next:next:printchr$(147):end
  15. 85 rem 6 - wipes like opening blinds
  16. 90 forj=1to5:forx=1to5:poke781,x*5-j:sys59903:next:next:printchr$(147):end
  17.